[PATCH] <short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.

Gbp-Pq: Name Version_2_6_15pre19

diff --git a/cmpnew/gcl_cmpfun.lsp b/cmpnew/gcl_cmpfun.lsp
index 73045687bda566b0ab6d0921ee18a622270a1407..144f72e3b2001e6285ba8dc4c810ef0f09bc31a0 100755 (executable)
--- a/cmpnew/gcl_cmpfun.lsp
+++ b/cmpnew/gcl_cmpfun.lsp
@@ -944,7 +944,7 @@
 
 (defun c2gethash (args)
   (cond ((member *value-to-go* '(top return))
-        (let* ((nargs (inline-args args '(t t)))
+        (let* ((nargs (inline-args args '(t t t)))
                (base *vs*)(*vs* *vs*)
                (r (cdr (vs-push)))(f (cdr (vs-push))))
           (wt-nl "{ struct htent *_z=gethash" (if *safe-compile* "_with_check" "") "(" (car nargs) "," (cadr nargs) ");")
@@ -956,10 +956,11 @@
           (wt-nl "base[" f "]=Ct;")
           (wt-nl "}}")
           (wt-nl "vs_top=(vs_base=base+" base ")+" (- *vs* base) ";")
-          (unwind-exit 'fun-val nil (cons 'values 2))))
+          (unwind-exit 'fun-val nil (cons 'values 2))
+          (close-inline-blocks)))
        ((let ((*inline-blocks* 0)
               (*restore-avma*  *restore-avma*)
-              (fd `((t t) t #.(flags rfa) 
+              (fd `((t t t) t #.(flags rfa)
                     ,(concatenate 'string
                                   "({struct htent *_z=gethash"
                                   (if *safe-compile* "_with_check" "")

diff --git a/git.tag b/git.tag
index ae0d68f31080810f3a09bf8a138099f4f0373258..07737b0314832ee25d7ea3154d603900374569ad 100644 (file)
--- a/git.tag
+++ b/git.tag
@@ -1 +1 @@
-"Version_2_6_15pre18"
+"Version_2_6_15pre19"